<%@LANGUAGE="VBSCRIPT"%>
<% Response.Expires = -1 %>
<!--#include file="Connections/labdict.asp" -->
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  MM_editConnection = MM_labdict_STRING
  MM_editTable = "LABDICT_TEST"
  MM_editColumn = "TEST_ID"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_editRedirectUrl = "list.asp"
  MM_fieldsStr  = "Price_Estimate|value|Price_Upper|value|Testing_Schedule_ID|value|Testing_Schedule2_ID|value|web_TAT_ID|value|Clinical_Description|value|docreferences|value|web_ref_range|value|ref_conv_ID|value|method_ID|value|Collection_Instructions|value|Shipping_ID|value|webVolume_rec|value|webVolume_req|value|International_unit_ID|value|Specimen_type_ID|value|LIS_code|value|LOINC_code|value|webDisplay|value|webDisclaimer_ID|value|Components|value|TEST|value|CONTAINER_ID|value|ALT_CONTAINER|value|SYNONYM1|value|SYNONYM2|value|SYNONYM3|value|CRITICAL_VALUE|value|INSTRUMENT|value|SPEC_TYPE_ID|value|SUBMIT_SPEC|value|PATIENT_PREP|value|MIN_VOL_WARD|value|MIN_VOL_LAB|value|STORE_TEMP_PRE|value|STORE_TEMP_POST|value|REF_RANGE|value|REF_OUT|value|SPEC_HAND|value|TAT_STAT|value|DIVISION_ID|value|FUNC_AREA_ID|value|ULT_REQ_ID|value|DOWN_REQ_ID|value|INFO_CALL|value"
  MM_columnsStr = "Price_Estimate|none,none,NULL|Price_Upper|none,none,NULL|Testing_Schedule_ID|none,none,NULL|Testing_Schedule2_ID|none,none,NULL|web_TAT_ID|none,none,NULL|Clinical_Description|',none,''|docreferences|',none,''|web_ref_range|',none,''|ref_conv_ID|none,none,NULL|method_ID|none,none,NULL|Collection_Instructions|',none,''|Shipping_ID|none,none,NULL|webVolume_rec|',none,''|webVolume_req|',none,''|International_unit_ID|none,none,NULL|Specimen_type_ID|none,none,NULL|LIS_code|',none,''|LOINC_code|',none,''|webDisplay|none,none,NULL|webDisclaimer_ID|none,none,NULL|Components|',none,''|TEST|',none,''|CONTAINER_ID|none,none,NULL|ALT_CONTAINER|',none,''|SYNONYM1|',none,''|SYNONYM2|',none,''|SYNONYM3|',none,''|CRITICAL_VALUE|',none,''|INSTRUMENT|',none,''|SPEC_TYPE_ID|none,none,NULL|SUBMIT_SPEC|',none,''|PATIENT_PREP|',none,''|MIN_VOL_WARD|',none,''|MIN_VOL_LAB|',none,''|STORE_TEMP_PRE|',none,''|STORE_TEMP_POST|',none,''|REF_RANGE|',none,''|REF_OUT|',none,''|SPEC_HAND|',none,''|TAT_STAT|',none,''|DIVISION_ID|none,none,NULL|FUNC_AREA_ID|none,none,NULL|ULT_REQ_ID|none,none,NULL|DOWN_REQ_ID|none,none,NULL|INFO_CALL|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  ' create the sql update statement
  MM_editQuery = "update " & MM_editTable & " set "
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery & ","
    End If
    MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal
  Next
  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the update
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim rsWebTests__MMColParam
rsWebTests__MMColParam = "1"
if (Request.QueryString("TEST_ID") <> "") then rsWebTests__MMColParam = Request.QueryString("TEST_ID")
%>
<%
set rsWebTests = Server.CreateObject("ADODB.Recordset")
rsWebTests.ActiveConnection = MM_labdict_STRING
rsWebTests.Source = "SELECT * FROM LABDICT_TEST WHERE TEST_ID = " + Replace(rsWebTests__MMColParam, "'", "''") + ""
rsWebTests.CursorType = 0
rsWebTests.CursorLocation = 2
rsWebTests.LockType = 3
rsWebTests.Open()
rsWebTests_numRows = 0
%>
<%
set rsInternalContainer = Server.CreateObject("ADODB.Recordset")
rsInternalContainer.ActiveConnection = MM_labdict_STRING
rsInternalContainer.Source = "SELECT * FROM LABDICT_CONTAINER"
rsInternalContainer.CursorType = 0
rsInternalContainer.CursorLocation = 2
rsInternalContainer.LockType = 3
rsInternalContainer.Open()
rsInternalContainer_numRows = 0
%>
<%
set rsInternalDivision = Server.CreateObject("ADODB.Recordset")
rsInternalDivision.ActiveConnection = MM_labdict_STRING
rsInternalDivision.Source = "SELECT * FROM LABDICT_DIVISION"
rsInternalDivision.CursorType = 0
rsInternalDivision.CursorLocation = 2
rsInternalDivision.LockType = 3
rsInternalDivision.Open()
rsInternalDivision_numRows = 0
%>
<%
set rsInternalFunctionalArea = Server.CreateObject("ADODB.Recordset")
rsInternalFunctionalArea.ActiveConnection = MM_labdict_STRING
rsInternalFunctionalArea.Source = "SELECT * FROM LABDICT_FUNCTIONAL_AREA"
rsInternalFunctionalArea.CursorType = 0
rsInternalFunctionalArea.CursorLocation = 2
rsInternalFunctionalArea.LockType = 3
rsInternalFunctionalArea.Open()
rsInternalFunctionalArea_numRows = 0
%>
<%
set rsInternalSpecimen = Server.CreateObject("ADODB.Recordset")
rsInternalSpecimen.ActiveConnection = MM_labdict_STRING
rsInternalSpecimen.Source = "SELECT * FROM LABDICT_SPECIMEN"
rsInternalSpecimen.CursorType = 0
rsInternalSpecimen.CursorLocation = 2
rsInternalSpecimen.LockType = 3
rsInternalSpecimen.Open()
rsInternalSpecimen_numRows = 0
%>
<%
set rsInternalReqForms = Server.CreateObject("ADODB.Recordset")
rsInternalReqForms.ActiveConnection = MM_labdict_STRING
rsInternalReqForms.Source = "SELECT * FROM LABDICT_REQ_FORMS"
rsInternalReqForms.CursorType = 0
rsInternalReqForms.CursorLocation = 2
rsInternalReqForms.LockType = 3
rsInternalReqForms.Open()
rsInternalReqForms_numRows = 0
%>
<%
set rsInternalUlticareRequisition = Server.CreateObject("ADODB.Recordset")
rsInternalUlticareRequisition.ActiveConnection = MM_labdict_STRING
rsInternalUlticareRequisition.Source = "SELECT * FROM LABDICT_ULTICARE_REQ"
rsInternalUlticareRequisition.CursorType = 0
rsInternalUlticareRequisition.CursorLocation = 2
rsInternalUlticareRequisition.LockType = 3
rsInternalUlticareRequisition.Open()
rsInternalUlticareRequisition_numRows = 0
%>
<%
set rsInternalDowntimeReq = Server.CreateObject("ADODB.Recordset")
rsInternalDowntimeReq.ActiveConnection = MM_labdict_STRING
rsInternalDowntimeReq.Source = "SELECT * FROM LABDICT_DOWNTIME_REQ"
rsInternalDowntimeReq.CursorType = 0
rsInternalDowntimeReq.CursorLocation = 2
rsInternalDowntimeReq.LockType = 3
rsInternalDowntimeReq.Open()
rsInternalDowntimeReq_numRows = 0
%>
<%
set rsWebMethod = Server.CreateObject("ADODB.Recordset")
rsWebMethod.ActiveConnection = MM_labdict_STRING
rsWebMethod.Source = "SELECT * FROM LABDICT_Method"
rsWebMethod.CursorType = 0
rsWebMethod.CursorLocation = 2
rsWebMethod.LockType = 3
rsWebMethod.Open()
rsWebMethod_numRows = 0
%>
<%
set rsWebTestSchedule = Server.CreateObject("ADODB.Recordset")
rsWebTestSchedule.ActiveConnection = MM_labdict_STRING
rsWebTestSchedule.Source = "SELECT * FROM LABDICT_Test_Schedule"
rsWebTestSchedule.CursorType = 0
rsWebTestSchedule.CursorLocation = 2
rsWebTestSchedule.LockType = 3
rsWebTestSchedule.Open()
rsWebTestSchedule_numRows = 0
%>
<%
set rsWebDisclaimer = Server.CreateObject("ADODB.Recordset")
rsWebDisclaimer.ActiveConnection = MM_labdict_STRING
rsWebDisclaimer.Source = "SELECT * FROM LABDICT_disclaimer"
rsWebDisclaimer.CursorType = 0
rsWebDisclaimer.CursorLocation = 2
rsWebDisclaimer.LockType = 3
rsWebDisclaimer.Open()
rsWebDisclaimer_numRows = 0
%>
<%
set rsWebShipping = Server.CreateObject("ADODB.Recordset")
rsWebShipping.ActiveConnection = MM_labdict_STRING
rsWebShipping.Source = "SELECT * FROM LABDICT_Shipping"
rsWebShipping.CursorType = 0
rsWebShipping.CursorLocation = 2
rsWebShipping.LockType = 3
rsWebShipping.Open()
rsWebShipping_numRows = 0
%>
<%
set rsWebSpecimen = Server.CreateObject("ADODB.Recordset")
rsWebSpecimen.ActiveConnection = MM_labdict_STRING
rsWebSpecimen.Source = "SELECT * FROM LABDICT_webSpecimen"
rsWebSpecimen.CursorType = 0
rsWebSpecimen.CursorLocation = 2
rsWebSpecimen.LockType = 3
rsWebSpecimen.Open()
rsWebSpecimen_numRows = 0
%>
<%
set rsWebUnits = Server.CreateObject("ADODB.Recordset")
rsWebUnits.ActiveConnection = MM_labdict_STRING
rsWebUnits.Source = "SELECT * FROM LABDICT_webUnits"
rsWebUnits.CursorType = 0
rsWebUnits.CursorLocation = 2
rsWebUnits.LockType = 3
rsWebUnits.Open()
rsWebUnits_numRows = 0
%>
<%
set rsWebTAT = Server.CreateObject("ADODB.Recordset")
rsWebTAT.ActiveConnection = MM_labdict_STRING
rsWebTAT.Source = "SELECT * FROM LABDICT_webTAT"
rsWebTAT.CursorType = 0
rsWebTAT.CursorLocation = 2
rsWebTAT.LockType = 3
rsWebTAT.Open()
rsWebTAT_numRows = 0
%>
<%
set rsRefConv = Server.CreateObject("ADODB.Recordset")
rsRefConv.ActiveConnection = MM_labdict_STRING
rsRefConv.Source = "SELECT * FROM LABDICT_refConf"
rsRefConv.CursorType = 0
rsRefConv.CursorLocation = 2
rsRefConv.LockType = 3
rsRefConv.Open()
rsRefConv_numRows = 0
%>
<html>
<head>
<title>Test Update</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="tables.css" type="text/css">
<script language="JavaScript">
<!--

function MM_popupMsg(msg) { //v1.0
  alert(msg);
}
//-->
</script>
<SCRIPT LANGUAGE="JavaScript"><!--
function updateTextField() {
    document.updater.web_ref_range.value = 
        document.updater.disclaimers.options[document.updater.disclaimers.selectedIndex].value
}
//--></SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#333366" link="#333366" vlink="#333333">
<form method="POST" action="<%=MM_editAction%>" name="updater">
  <table align="center" width="660" border="0" cellpadding="2" cellspacing="0">
    <tr valign="baseline"> 
      <td colspan="3"><img src="images/Banner.jpg" width="660" height="108"></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" colspan="3" valign="middle" height="40"> 
        <div align="center"><a href="default.asp">return to test index</a></div>
      </td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" bgcolor="#333366" height="20" valign="middle" width="200"><font color="#FFFFFF">test 
        name:</font></td>
      <td align="left" bgcolor="#333366" height="30" valign="middle"><b><font color="#FFFFFF"><%=(rsWebTests.Fields.Item("TEST").Value)%></font></b></td>
      <td bgcolor="#333366" height="20">&nbsp;</td>
    </tr>
    <tr> 
      <td><img src="images/spacer.gif" width="205" height="10"></td>
      <td><img src="images/spacer.gif" width="345" height="10"></td>
      <td><img src="images/spacer.gif" width="100" height="10"></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">price estimate:</td>
      <td colspan="2"> $ 
        <input type="text" name="Price_Estimate" value="<%
		if rsWebTests.Fields.Item("Price_Estimate").Value <> "" then
		dim myPrice
		myPrice = FormatNumber((rsWebTests.Fields.Item("Price_Estimate").Value), 2, -2, -2, -2)
		Response.Write (myPrice)
		else 
		Response.Write("0.00")
		end if%>" size="10">
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#999999"><b>to</b> 
        (optional) $:</font> 
        <input type="text" name="Price_Upper" value="<%
		if rsWebTests.Fields.Item("Price_Upper").Value <> "" then
		dim myUpperPrice
		myUpperPrice = FormatNumber((rsWebTests.Fields.Item("Price_Upper").Value), 2, -2, -2, -2)
		Response.Write (myUpperPrice)
		else 
		Response.Write("")
		end if%>"size="10">
      </td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">testing schedule:</td>
      <td> 
        <select name="Testing_Schedule_ID">
          <option value="0">*** select ***</option>
          <%
While (NOT rsWebTestSchedule.EOF)
%>
          <option value="<%=(rsWebTestSchedule.Fields.Item("Testing_Schedule_ID").Value)%>" <%
		  if rsWebTests.Fields.Item("Testing_Schedule_ID").Value <> "" then 
		  if (CStr(rsWebTestSchedule.Fields.Item("Testing_Schedule_ID").Value) = CStr(rsWebTests.Fields.Item("Testing_Schedule_ID").Value)) then 
		  Response.Write("SELECTED")
		  else
		  Response.Write("")
		  end if
		  end if
		  %>><%=(rsWebTestSchedule.Fields.Item("Testing_Schedule").Value)%></option>
          <%
  rsWebTestSchedule.MoveNext()
Wend
If (rsWebTestSchedule.CursorType > 0) Then
  rsWebTestSchedule.MoveFirst
Else
  rsWebTestSchedule.Requery
End If
%>
        </select>
      </td>
      <td><a href="schedule.asp?<%=request.querystring%>&Testing_Schedule_ID=<%=(rsWebTests.Fields.Item("Testing_Schedule_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">secondary schedule(if necessary):</td>
      <td> 
        <select name="Testing_Schedule2_ID">
          <option value="0">* n/a *</option>
          <%
While (NOT rsWebTestSchedule.EOF)
%>
          <option value="<%=(rsWebTestSchedule.Fields.Item("Testing_Schedule_ID").Value)%>" <%
		  if rsWebTests.Fields.Item("Testing_Schedule2_ID").Value <> "" then
		  if (CStr(rsWebTestSchedule.Fields.Item("Testing_Schedule_ID").Value) = CStr(rsWebTests.Fields.Item("Testing_Schedule2_ID").Value)) then
		  Response.Write("SELECTED")
		  else
		  Response.Write("")
		  end if
		  end if
		  %>><%=(rsWebTestSchedule.Fields.Item("Testing_Schedule").Value)%></option>
          <%
  rsWebTestSchedule.MoveNext()
Wend
If (rsWebTestSchedule.CursorType > 0) Then
  rsWebTestSchedule.MoveFirst
Else
  rsWebTestSchedule.Requery
End If
%>
        </select>
      </td>
      <td><a href="schedule.asp?<%=request.querystring%>&Testing_Schedule_ID=<%=(rsWebTests.Fields.Item("Testing_Schedule_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(web) turn-around-time:</td>
      <td> 
        <select name="web_TAT_ID">
          <option value="0">*** select ***</option>
          <%
While (NOT rsWebTAT.EOF)
%>
          <option value="<%=(rsWebTAT.Fields.Item("web_TAT_ID").Value)%>" <%
		  if rsWebTests.Fields.Item("web_TAT_ID").Value <> "" then
		  if (CStr(rsWebTAT.Fields.Item("web_TAT_ID").Value) = CStr(rsWebTests.Fields.Item("web_TAT_ID").Value)) then
		  Response.Write("SELECTED")
		  else
		  Response.Write("")
		  end if
		  end if
		  %>><%=(rsWebTAT.Fields.Item("web_TAT").Value)%></option>
          <%
  rsWebTAT.MoveNext()
Wend
If (rsWebTAT.CursorType > 0) Then
  rsWebTAT.MoveFirst
Else
  rsWebTAT.Requery
End If
%>
        </select>
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" valign="middle">clinical description:</td>
      <td> 
        <textarea name="Clinical_Description" cols="42" wrap="VIRTUAL" rows="4"><%=(rsWebTests.Fields.Item("Clinical_Description").Value)%></textarea>
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" valign="middle">references:</td>
      <td> 
        <textarea name="docreferences" cols="42" rows="3" wrap="VIRTUAL"><%=(rsWebTests.Fields.Item("docreferences").Value)%></textarea>
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="middle" bgcolor="#666666" align="center"> 
      <td colspan="3"> 
        <p><font color="#FFFFFF">Reference Ranges:<br>
          please enter a reference range <i>summary</i> for web customers in the 
          following format:<br>
          <b>0.24 - 0.70 g/L</b><br>
          If there are two ranges (e.g. 'male' &amp; 'female') separate them with 
          a RETURN.<br>
          <b>male: 0.24 - 0.70 g/L<br>
          female: 0.28 - 0.80 g/L</b><br>
          If there are more than two ranges (e.g. multiple age &amp; gender categories), 
          please use the menu to add a complex range disclaimer.</font></p>
      </td>
    </tr>
    <tr valign="middle" bgcolor="#666666" align="center"> 
      <td>&nbsp;</td>
      <td align="left"> 
        <select name="disclaimers" onChange="updateTextField()">
          <option selected>**select a complex range disclaimer**</option>
          <option value="Reference ranges for this test are not available online. However, they are included in all test results. For more information, please call us.">Reference 
          ranges for this test are not available online...</option>
          <option>**clear reference ranges field**</option>
        </select>
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" valign="middle" bgcolor="#CCCCCC">(web) reference ranges:</td>
      <td align="left" valign="middle" bgcolor="#CCCCCC"> 
        <textarea name="web_ref_range" cols="42" rows="3" wrap="VIRTUAL"><%=(rsWebTests.Fields.Item("web_ref_range").Value)%></textarea>
      </td>
      <td align="right" valign="middle" bgcolor="#CCCCCC">&nbsp;</td>
    </tr>
    <tr valign="baseline" bgcolor="#666666" align="center"> 
      <td valign="middle" colspan="3"><font color="#FFFFFF">The reference ranges 
        used internally are included below as reference (although special formatting 
        is used).</font></td>
    </tr>
    <tr valign="baseline" bgcolor="#CCCCCC"> 
      <td align="right" valign="middle">(internal) reference ranges:</td>
      <td align="left" valign="middle"><%=(rsWebTests.Fields.Item("REF_RANGE").Value)%></td>
      <td align="right" valign="middle">&nbsp;</td>
    </tr>
    <tr valign="baseline" bgcolor="#CCCCCC"> 
      <td align="right" valign="middle">(web) conversion factor:</td>
      <td align="left" valign="middle"> 
        <div align="left"> 
          <select name="ref_conv_ID">
            <option value="0">*** select ***</option>
            <%
While (NOT rsRefConv.EOF)
%>
            <option value="<%=(rsRefConv.Fields.Item("ref_conv_ID").Value)%>" <%
			if rsWebTests.Fields.Item("ref_conv_ID").Value <> "" then
			if (CStr(rsRefConv.Fields.Item("ref_conv_ID").Value) = CStr(rsWebTests.Fields.Item("ref_conv_ID").Value)) then
			Response.Write("SELECTED")
			else
			Response.Write("")
			end if
			end if
			%>><%=(rsRefConv.Fields.Item("ref_conv").Value)%></option>
            <%
  rsRefConv.MoveNext()
Wend
If (rsRefConv.CursorType > 0) Then
  rsRefConv.MoveFirst
Else
  rsRefConv.Requery
End If
%>
          </select>
        </div>
      </td>
      <td align="right" valign="middle">&nbsp;</td>
    </tr>
    <tr valign="baseline" bgcolor="#666666"> 
      <td align="right" valign="middle" colspan="3">&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">method used:</td>
      <td> 
        <select name="method_ID">
          <option value="0">*** select ***</option>
          <%
While (NOT rsWebMethod.EOF)
%>
          <option value="<%=(rsWebMethod.Fields.Item("method_ID").Value)%>" <%
		  if rsWebTests.Fields.Item("method_ID").Value <> "" then
		  if (CStr(rsWebMethod.Fields.Item("method_ID").Value) = CStr(rsWebTests.Fields.Item("method_ID").Value)) then
		  Response.Write("SELECTED")
		  else
		  Response.Write("")
		  end if
		  end if
		  %>><%=(rsWebMethod.Fields.Item("method").Value)%></option>
          <%
  rsWebMethod.MoveNext()
Wend
If (rsWebMethod.CursorType > 0) Then
  rsWebMethod.MoveFirst
Else
  rsWebMethod.Requery
End If
%>
        </select>
      </td>
      <td><a href="method.asp?<%=request.querystring%>&method_ID=<%=(rsWebTests.Fields.Item("method_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" valign="middle">special instructions:</td>
      <td> 
        <textarea name="Collection_Instructions" cols="48" rows="2" wrap="VIRTUAL"><%=(rsWebTests.Fields.Item("Collection_Instructions").Value)%></textarea>
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">shipping:</td>
      <td> 
        <select name="Shipping_ID">
          <option value="0">*** select ***</option>
          <%
While (NOT rsWebShipping.EOF)
%>
          <option value="<%=(rsWebShipping.Fields.Item("Shipping_ID").Value)%>" <%
		  if rsWebTests.Fields.Item("Shipping_ID").Value <> "" then
		  if (CStr(rsWebShipping.Fields.Item("Shipping_ID").Value) = CStr(rsWebTests.Fields.Item("Shipping_ID").Value)) then 
		  Response.Write("SELECTED")
		  else
		  Response.Write("")
		  end if
		  end if
		  %>><%=(rsWebShipping.Fields.Item("Shipping_Description").Value)%></option>
          <%
  rsWebShipping.MoveNext()
Wend
If (rsWebShipping.CursorType > 0) Then
  rsWebShipping.MoveFirst
Else
  rsWebShipping.Requery
End If
%>
        </select>
      </td>
      <td><a href="shipping.asp?<%=request.querystring%>&Shipping_ID=<%=(rsWebTests.Fields.Item("Shipping_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right"> 
        <p>(web) recommended volume:<br>
          <b>**important: numeric only - use 'unit of measure' menu below to specify 
          unit**</b> </p>
      </td>
      <td> 
        <input type="text" name="webVolume_rec" value="<%=(rsWebTests.Fields.Item("webVolume_rec").Value)%>" size="12">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(web) required volume:<br>
        <b>**important: numeric only - use 'unit of measure' menu below to specify 
        unit**</b> </td>
      <td> 
        <input type="text" name="webVolume_req" value="<%=(rsWebTests.Fields.Item("webVolume_req").Value)%>" size="12">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">volume measure:</td>
      <td> 
        <select name="International_unit_ID">
          <option value="0">*** select ***</option>
          <%
While (NOT rsWebUnits.EOF)
%>
          <option value="<%=(rsWebUnits.Fields.Item("International_unit_ID").Value)%>" <%
		  if rsWebTests.Fields.Item("International_unit_ID").Value <> "" then
		  if (CStr(rsWebUnits.Fields.Item("International_unit_ID").Value) = CStr(rsWebTests.Fields.Item("International_unit_ID").Value)) then
		  Response.Write("SELECTED")
		  else 
		  Response.Write("")
		  end if
		  end if
		  %>><%=(rsWebUnits.Fields.Item("International_unit").Value)%></option>
          <%
  rsWebUnits.MoveNext()
Wend
If (rsWebUnits.CursorType > 0) Then
  rsWebUnits.MoveFirst
Else
  rsWebUnits.Requery
End If
%>
        </select>
      </td>
      <td><a href="unitmeasure.asp?<%=request.querystring%>&International_unit_ID=<%=(rsWebTests.Fields.Item("International_unit_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(web) specimen type:</td>
      <td> 
        <select name="Specimen_type_ID">
          <option value="0">*** select ***</option>
          <%
While (NOT rsWebSpecimen.EOF)
%>
          <option value="<%=(rsWebSpecimen.Fields.Item("Specimen_Type_ID").Value)%>" <%
		  if rsWebTests.Fields.Item("Specimen_Type_ID").Value <> "" then
		  if (CStr(rsWebSpecimen.Fields.Item("Specimen_Type_ID").Value) = CStr(rsWebTests.Fields.Item("Specimen_Type_ID").Value)) then 
		  Response.Write("SELECTED")
		  else
		  Response.Write("")
		  end if
		  end if
		  %>><%=(rsWebSpecimen.Fields.Item("Specimen_Type").Value)%></option>
          <%
  rsWebSpecimen.MoveNext()
Wend
If (rsWebSpecimen.CursorType > 0) Then
  rsWebSpecimen.MoveFirst
Else
  rsWebSpecimen.Requery
End If
%>
        </select>
      </td>
      <td><a href="webspecimen.asp?<%=request.querystring%>&Specimen_Type_ID=<%=(rsWebTests.Fields.Item("Specimen_Type_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">LIS code:</td>
      <td> 
        <input type="text" name="LIS_code" value="<%=(rsWebTests.Fields.Item("LIS_code").Value)%>" size="12">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">LOINC code:</td>
      <td> 
        <input type="text" name="LOINC_code" value="<%=(rsWebTests.Fields.Item("LOINC_code").Value)%>" size="12">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">Display on web site:</td>
      <td> 
        <select name="webDisplay">
          <option value="1" <%
		  if rsWebTests.Fields.Item("webDisplay").Value = 1 then
		  response.write("SELECTED")
		  end if
		  %>>yes</option>
          <option value="2" <%
		  if rsWebTests.Fields.Item("webDisplay").Value = 2 then
		  response.write("SELECTED")
		  end if
		  %>>no</option>
        </select>
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(web) disclaimer:</td>
      <td> 
        <select name="webDisclaimer_ID">
          <option value="0">none</option>
          <%
While (NOT rsWebDisclaimer.EOF)
%>
          <option value="<%=(rsWebDisclaimer.Fields.Item("webDisclaimer_ID").Value)%>" <%
		  if rsWebTests.Fields.Item("webDisclaimer_ID").Value <> "" then
		  if (CStr(rsWebDisclaimer.Fields.Item("webDisclaimer_ID").Value) = CStr(rsWebTests.Fields.Item("webDisclaimer_ID").Value)) then 
		  Response.Write("SELECTED")
		  else
		  Response.Write("")
		  end if
		  end if
		  %>><%=(rsWebDisclaimer.Fields.Item("summary").Value)%></option>
          <%
  rsWebDisclaimer.MoveNext()
Wend
If (rsWebDisclaimer.CursorType > 0) Then
  rsWebDisclaimer.MoveFirst
Else
  rsWebDisclaimer.Requery
End If
%>
        </select>
      </td>
      <td><a href="javascript:;" onClick="MM_popupMsg('If you require a new disclaimer type or think an exisitng one should be changed, please contact Michele Henry.')"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" valign="baseline">test components:<br>
        <b>**important: separate component tests with commas (testX,testY)**</b> 
      </td>
      <td> 
        <textarea name="Components" cols="48" rows="2" wrap="VIRTUAL"><%=(rsWebTests.Fields.Item("Components").Value)%></textarea>
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" height="5">&nbsp;</td>
      <td align="right" height="5"> 
        <div align="left">
          <input type="submit" value="update test" name="submit">
        </div>
      </td>
      <td align="right" height="5">&nbsp;</td>
    </tr>
    <tr valign="baseline" align="center"> 
      <td valign="middle" colspan="3" height="5" bgcolor="#333366"><font color="#FFFFFF">Please 
        review the exisiting database values below for errors, inconsistent formatting, 
        etc.<br>
        If you would like to make a change, but are concerned that it may affect 
        the internal systems, please email <a href="mailto:michele.henry@uhn.on.ca"><font color="#CCCCCC">Michele 
        Henry</font></a> before making the change.</font></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" colspan="3" height="10">&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">test name:</td>
      <td> 
        <input type="text" name="TEST" value="<%=(rsWebTests.Fields.Item("TEST").Value)%>" size="48">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) container:</td>
      <td> 
        <select name="CONTAINER_ID">
          <%
While (NOT rsInternalContainer.EOF)
%>
          <option value="<%=(rsInternalContainer.Fields.Item("CONTAINER_ID").Value)%>" <%if (CStr(rsInternalContainer.Fields.Item("CONTAINER_ID").Value) = CStr(rsWebTests.Fields.Item("CONTAINER_ID").Value)) then Response.Write("SELECTED") : Response.Write("")%>> 
          <%dim shortContainer
		  	shortContainer = Cstr(rsInternalContainer.Fields.Item("CONTAINER_TYPE").Value)
		  	if Len(shortContainer) > 50 then
			shortContainer = Mid(shortContainer,1,50)
			shortContainer = shortContainer & "..."
			end if
			response.write(shortContainer)%>
          </option>
          <%
  rsInternalContainer.MoveNext()
Wend
If (rsInternalContainer.CursorType > 0) Then
  rsInternalContainer.MoveFirst
Else
  rsInternalContainer.Requery
End If
%>
        </select>
      </td>
      <td><a href="container.asp?CONTAINER_ID=<%=(rsWebTests.Fields.Item("CONTAINER_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" valign="middle">(internal) ALTERNATE container:</td>
      <td valign="middle"> 
        <textarea name="ALT_CONTAINER" cols="42" wrap="VIRTUAL"><%=(rsWebTests.Fields.Item("ALT_CONTAINER").Value)%></textarea>
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">synonym1:</td>
      <td> 
        <input type="text" name="SYNONYM1" value="<%=(rsWebTests.Fields.Item("SYNONYM1").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">synonym2:</td>
      <td> 
        <input type="text" name="SYNONYM2" value="<%=(rsWebTests.Fields.Item("SYNONYM2").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">synonym3:</td>
      <td> 
        <input type="text" name="SYNONYM3" value="<%=(rsWebTests.Fields.Item("SYNONYM3").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" height="35">&nbsp;</td>
      <td height="35" valign="middle"> 
        <input type="submit" value="update test">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" colspan="3" height="10">&nbsp;</td>
    </tr>
    <tr valign="baseline" align="center"> 
      <td colspan="3" valign="middle" height="50" bgcolor="#333366"><font color="#FFFFFF">The 
        database values below are used internally.<br>
        Please use <b>extreme caution</b> when changing these fields.</font></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" colspan="3" height="10">&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">critical value:</td>
      <td> 
        <input type="text" name="CRITICAL_VALUE" value="<%=(rsWebTests.Fields.Item("CRITICAL_VALUE").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">instrument:</td>
      <td> 
        <input type="text" name="INSTRUMENT" value="<%=(rsWebTests.Fields.Item("INSTRUMENT").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) specimen type:</td>
      <td> 
        <select name="SPEC_TYPE_ID">
          <%
While (NOT rsInternalSpecimen.EOF)
%>
          <option value="<%=(rsInternalSpecimen.Fields.Item("SPEC_TYPE_ID").Value)%>" <%if (CStr(rsInternalSpecimen.Fields.Item("SPEC_TYPE_ID").Value) = CStr(rsWebTests.Fields.Item("SPEC_TYPE_ID").Value)) then Response.Write("SELECTED") : Response.Write("")%>><%=(rsInternalSpecimen.Fields.Item("SPEC_TYPE").Value)%></option>
          <%
  rsInternalSpecimen.MoveNext()
Wend
If (rsInternalSpecimen.CursorType > 0) Then
  rsInternalSpecimen.MoveFirst
Else
  rsInternalSpecimen.Requery
End If
%>
        </select>
      </td>
      <td><a href="specimentype.asp?SPEC_TYPE_ID=<%=(rsWebTests.Fields.Item("SPEC_TYPE_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) submit specimen:</td>
      <td> 
        <input type="text" name="SUBMIT_SPEC" value="<%=(rsWebTests.Fields.Item("SUBMIT_SPEC").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) patient preparation</td>
      <td> 
        <input type="text" name="PATIENT_PREP" value="<%=(rsWebTests.Fields.Item("PATIENT_PREP").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) minimum volume (at ward):</td>
      <td> 
        <input type="text" name="MIN_VOL_WARD" value="<%=(rsWebTests.Fields.Item("MIN_VOL_WARD").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) minimum volume (at lab):</td>
      <td> 
        <input type="text" name="MIN_VOL_LAB" value="<%=(rsWebTests.Fields.Item("MIN_VOL_LAB").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) store temp (pre):</td>
      <td> 
        <input type="text" name="STORE_TEMP_PRE" value="<%=(rsWebTests.Fields.Item("STORE_TEMP_PRE").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) store temp (post):</td>
      <td> 
        <input type="text" name="STORE_TEMP_POST" value="<%=(rsWebTests.Fields.Item("STORE_TEMP_POST").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) reference range:</td>
      <td> 
        <input type="text" name="REF_RANGE" value="<%=(rsWebTests.Fields.Item("REF_RANGE").Value)%>" size="32">
      </td>
      <td><a href="javascript:;" onClick="MM_popupMsg('Multiple reference ranges are separated by a system of colons &amp; semi-colons. Please contact Michele Henry if you are uncertain how to format this field.')"><img src="images/formatting.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) reference out:</td>
      <td> 
        <input type="text" name="REF_OUT" value="<%=(rsWebTests.Fields.Item("REF_OUT").Value)%>" size="32">
      </td>
      <td><a href="javascript:;" onClick="MM_popupMsg('Multiple reference ranges are separated by a system of colons &amp; semi-colons. Please contact Michele Henry if you are uncertain how to format this field.')"><img src="images/formatting.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) special handling:</td>
      <td> 
        <input type="text" name="SPEC_HAND" value="<%=(rsWebTests.Fields.Item("SPEC_HAND").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) turn-around-time:</td>
      <td> 
        <input type="text" name="TAT_STAT" value="<%=(rsWebTests.Fields.Item("TAT_STAT").Value)%>" size="32">
      </td>
      <td><a href="javascript:;" onClick="MM_popupMsg('Please separate multiple turn around times with semi-colons (;).')"><img src="images/formatting.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) division:</td>
      <td> 
        <select name="DIVISION_ID">
          <%
While (NOT rsInternalDivision.EOF)
%>
          <option value="<%=(rsInternalDivision.Fields.Item("DIVISION_ID").Value)%>" <%if (CStr(rsInternalDivision.Fields.Item("DIVISION_ID").Value) = CStr(rsWebTests.Fields.Item("DIVISION_ID").Value)) then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsInternalDivision.Fields.Item("DIVISION").Value)%></option>
          <%
  rsInternalDivision.MoveNext()
Wend
If (rsInternalDivision.CursorType > 0) Then
  rsInternalDivision.MoveFirst
Else
  rsInternalDivision.Requery
End If
%>
        </select>
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) functional area:</td>
      <td> 
        <select name="FUNC_AREA_ID">
          <%
While (NOT rsInternalFunctionalArea.EOF)
%>
          <option value="<%=(rsInternalFunctionalArea.Fields.Item("FUNC_AREA_ID").Value)%>" <%if (CStr(rsInternalFunctionalArea.Fields.Item("FUNC_AREA_ID").Value) = CStr(rsWebTests.Fields.Item("FUNC_AREA_ID").Value)) then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsInternalFunctionalArea.Fields.Item("FUNC_AREA").Value)%></option>
          <%
  rsInternalFunctionalArea.MoveNext()
Wend
If (rsInternalFunctionalArea.CursorType > 0) Then
  rsInternalFunctionalArea.MoveFirst
Else
  rsInternalFunctionalArea.Requery
End If
%>
        </select>
      </td>
      <td><a href="functionalarea.asp?FUNC_AREA_ID=<%=(rsWebTests.Fields.Item("FUNC_AREA_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) Ulticare requisition:</td>
      <td> 
        <select name="ULT_REQ_ID">
          <%
While (NOT rsInternalUlticareRequisition.EOF)
%>
          <option value="<%=(rsInternalUlticareRequisition.Fields.Item("ULT_REQ_ID").Value)%>" <%if (CStr(rsInternalUlticareRequisition.Fields.Item("ULT_REQ_ID").Value) = CStr(rsWebTests.Fields.Item("ULT_REQ_ID").Value)) then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsInternalUlticareRequisition.Fields.Item("ULT_REQ").Value)%></option>
          <%
  rsInternalUlticareRequisition.MoveNext()
Wend
If (rsInternalUlticareRequisition.CursorType > 0) Then
  rsInternalUlticareRequisition.MoveFirst
Else
  rsInternalUlticareRequisition.Requery
End If
%>
        </select>
      </td>
      <td><a href="ulticarereq.asp?ULT_REQ_ID=<%=(rsWebTests.Fields.Item("ULT_REQ_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) down requisition:</td>
      <td> 
        <select name="DOWN_REQ_ID">
          <%
While (NOT rsInternalDowntimeReq.EOF)
%>
          <option value="<%=(rsInternalDowntimeReq.Fields.Item("DOWN_REQ_ID").Value)%>" <%if (CStr(rsInternalDowntimeReq.Fields.Item("DOWN_REQ_ID").Value) = CStr(rsWebTests.Fields.Item("DOWN_REQ_ID").Value)) then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsInternalDowntimeReq.Fields.Item("DOWN_REQ").Value)%></option>
          <%
  rsInternalDowntimeReq.MoveNext()
Wend
If (rsInternalDowntimeReq.CursorType > 0) Then
  rsInternalDowntimeReq.MoveFirst
Else
  rsInternalDowntimeReq.Requery
End If
%>
        </select>
      </td>
      <td><a href="downtimereq.asp?DOWN_REQ_ID=<%=(rsWebTests.Fields.Item("DOWN_REQ_ID").Value)%>"><img src="images/addchange.gif" width="100" height="25" border="0"></a></td>
    </tr>
    <tr valign="baseline"> 
      <td align="right">(internal) information call#:</td>
      <td> 
        <input type="text" name="INFO_CALL" value="<%=(rsWebTests.Fields.Item("INFO_CALL").Value)%>" size="32">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" height="35">&nbsp;</td>
      <td height="35" valign="middle"> 
        <input type="submit" value="update test">
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" colspan="3" bgcolor="#333366" height="20">&nbsp;</td>
    </tr>
    <tr valign="baseline"> 
      <td align="right" colspan="3" valign="middle" height="25"> 
        <div align="center"><a href="default.asp">return to test index</a></div>
      </td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="true">
  <input type="hidden" name="MM_recordId" value="<%= rsWebTests.Fields.Item("TEST_ID").Value %>">
</form>
<p>&nbsp;</p>
</body>
</html>
<%
rsWebTests.Close()
%>
<%
rsInternalContainer.Close()
%>
<%
rsInternalDivision.Close()
%>
<%
rsInternalFunctionalArea.Close()
%>
<%
rsInternalSpecimen.Close()
%>
<%
rsInternalReqForms.Close()
%>
<%
rsInternalUlticareRequisition.Close()
%>
<%
rsInternalDowntimeReq.Close()
%>
<%
rsWebMethod.Close()
%>
<%
rsWebTestSchedule.Close()
%>
<%
rsWebDisclaimer.Close()
%>
<%
rsWebShipping.Close()
%>
<%
rsWebSpecimen.Close()
%>
<%
rsWebUnits.Close()
%>
<%
rsWebTAT.Close()
%>
<%
rsRefConv.Close()
%>
